home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
adx7mu1a
/
players.frm
< prev
next >
Wrap
Text File
|
1999-10-10
|
43KB
|
1,245 lines
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form MainBoard
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
Caption = "Tic-Tac-Toe"
ClientHeight = 6285
ClientLeft = 60
ClientTop = 630
ClientWidth = 8175
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontTransparent = 0 'False
ForeColor = &H00000040&
Icon = "players.frx":0000
LinkTopic = "Form1"
Picture = "players.frx":000C
ScaleHeight = 419
ScaleMode = 3 'Pixel
ScaleWidth = 545
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox chatbox
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 480
TabIndex = 17
Text = "Type Message Here"
Top = 5280
Visible = 0 'False
Width = 2535
End
Begin VB.CommandButton send_chat
Caption = "Send"
Default = -1 'True
Height = 375
Left = 3120
TabIndex = 3
Top = 5280
Visible = 0 'False
Width = 975
End
Begin VB.Frame Frame1
Caption = "Tic Tac Chat"
Height = 2775
Left = 360
TabIndex = 15
Top = 3000
Visible = 0 'False
Width = 3975
Begin RichTextLib.RichTextBox chatlabel
Height = 1815
Left = 120
TabIndex = 16
Top = 360
Width = 3735
_ExtentX = 6588
_ExtentY = 3201
_Version = 393217
Enabled = -1 'True
TextRTF = $"players.frx":6AA8
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 5000
Left = 5250
Top = 510
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 14
Top = 5970
Width = 8175
_ExtentX = 14420
_ExtentY = 556
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.CommandButton restart
Caption = "Restart Game"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 3150
TabIndex = 2
Top = 2235
Width = 1245
End
Begin VB.Label Game_Over
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 6060
TabIndex = 13
Top = 5100
Width = 135
End
Begin VB.Label Layer_A
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 8
Left = 6675
TabIndex = 12
Top = 4095
Width = 555
End
Begin VB.Label Layer_A
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 7
Left = 5835
TabIndex = 11
Top = 4095
Width = 555
End
Begin VB.Label Layer_A
BackColor = &H00000000&
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 6
Left = 4950
TabIndex = 10
Top = 4095
Width = 555
End
Begin VB.Label Layer_A
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 5
Left = 6675
TabIndex = 9
Top = 3180
Width = 555
End
Begin VB.Label Layer_A
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 4
Left = 5835
TabIndex = 8
Top = 3180
Width = 555
End
Begin VB.Label Layer_A
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Wei